X-Git-Url: https://permondes.de/gitweb/Analog_Engine.git/blobdiff_plain/f25252dda165cd2fb57a745bcb17df03d5b590f3..7fbf87e4750e1393d9b6395818b70000ca99c758:/AESL/Radioactive%20Decay.AESL?ds=inline diff --git a/AESL/Radioactive Decay.AESL b/AESL/Radioactive Decay.AESL index e225eef..ef7fcdf 100644 --- a/AESL/Radioactive Decay.AESL +++ b/AESL/Radioactive Decay.AESL @@ -3,20 +3,20 @@ PROGRAM-ID Radioactive_Decay ENVIRONMENT DIVISION ENGINE Anabrid-THAT -REQUIRES Coefficient 2 -REQUIRES Integrator 1 -REQUIRES Inverter 1 +REQUIRES COEFFICIENT 2 +REQUIRES INTEGRATOR 1 +REQUIRES INVERTER 1 DATA DIVISION OUTPUT OUTPUT.X N -ALIAS COEFFICIENT.1 InitialValue -ALIAS COEFFICIENT.2 Decay +COEFFICIENT.1 InitialValue +COEFFICIENT.2 Decay PROGRAM DIVISION -+1 -> InitialValue -> N0 -N’, IC:N0 -> Integrator.1 -> -N --N -> Decay -> -lambda*N=N’ --N -> Inverter.1 -> N ++1 -> COEFFICIENT.InitialValue -> N0 +N’, IC:N0 -> INTEGRATOR -> -N +-N -> COEFFICIENT.Decay -> -lambda*N=N’ +-N -> INVERTER -> N OPERATION DIVISION MODE REPEAT